home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d6
/
mailmen.arc
/
PRINTROL.PRG
< prev
next >
Wrap
Text File
|
1991-01-10
|
6KB
|
230 lines
SET TALK OFF
ERASE
STORE T TO BEVEL
DO WHILE BEVEL
STORE ' ' TO ANS1
@ 10,5 say "Do You Wish To Print Cards of friends or business (F or B) ?"
@ 10,75 GET ANS1
READ
CLEAR GETS
IF !(ANS1) = 'F' .OR. !(ANS1) = 'B'
STORE F TO BEVEL
ELSE
ENDIF
ENDDO
ERASE
@ 10,5 SAY 'Mount 2 1/8" by 4" Roladex Cards in Printer'
@ 12,5 SAY 'Press any key when ready'
?
?
?
?
?
?
?
?
?
wait
IF !(ANS1) = 'F'
USE MAIL
STORE T TO BLUE
DO WHILE BLUE
STORE ' ' TO INDEX1
ERASE
@ 10,5 SAY "Do You Want to Reindex the File (Y OR N) ?"
@ 10,75 GET INDEX1
READ
CLEAR GETS
IF !(INDEX1)= 'Y'
INDEX ON LAST TO LAST
STORE F TO BLUE
ELSE
IF !(INDEX1) = 'N'
STORE F TO BLUE
ELSE
ENDIF
ENDIF
ENDDO
ERASE
USE MAIL INDEX LAST
GO TOP
SET PRINT ON
? CHR(15)
DO WHILE .NOT. EOF
IF FRIEND <> ' '
? TRIM(LAST)-",", FIRST, ' ', PROF1
? ADDR1, ' ', PROF2
? ADDR2
? TRIM(CITY)-"," , STATE, ZIP
? COMPANY
? 'TEL:WRK', TEL:WRK
? 'TEL:HM', TEL:HM
?
?
?
?
?
?
ENDIF
SKIP
ENDDO
? CHR(18)
SET PRINT OFF
RETURN
ENDIF
IF !(ANS1) = 'B'
STORE T TO RIGHT
DO WHILE RIGHT
STORE ' ' TO P
ERASE
@ 10,5 SAY "Press 'A' To Print Cards For All Categories"
@ 12,5 SAy "Press 'S' to print selected categories"
@ 12,70 get P
READ
CLEAR GETS
IF !(P) = 'A' .OR. !(P) = 'S'
STORE F TO RIGHT
ELSE
ENDIF
ENDDO
IF !(P) = 'A'
ERASE
USE MAIL
GO TOP
SET PRINT ON
? CHR(15)
DO WHILE .NOT. EOF
IF FRIEND = ' '
? TRIM(LAST)-",", FIRST, ' ', PROF1
? COMPANY, ' ', PROF2
? ADDR1, ' ', PROF3
? ADDR2
? TRIM(CITY)-"," , STATE, ZIP
? 'TEL:WRK', TEL:WRK
? 'TEL:HM', TEL:HM
?
?
?
?
?
?
ENDIF
SKIP
ENDDO
? CHR(18)
SET PRINT OFF
RETURN
ENDIF
IF !(P) = 'S'
STORE T TO CONTINUE
DO WHILE CONTINUE
SET PRINT OFF
STORE T TO LEVEL
DO WHILE LEVEL
STORE ' ' TO ANS
STORE ' ' TO CAT
ERASE
?
?
?
?
ACCEPT "What Priority Level Are You Searching (1,2, OR 3) ?" TO ANS
?
?
ACCEPT "What Category Are You Looking For ?" TO CAT
IF ANS = '1' .OR. ANS = '2' .OR. ANS = '3'
STORE 'PROF'-ANS TO PROF
STORE F TO LEVEL
ELSE
ENDIF
ENDDO
ERASE
STORE !(CAT) TO CAT
USE MAIL
STORE T TO TRUE
DO WHILE TRUE
STORE ' ' TO INDEX
@ 10,5 SAY "Do You Want to Reindex the File (Y OR N) ?" GET INDEX
READ
IF !(INDEX)= 'Y'
INDEX ON &PROF TO &PROF
STORE F TO TRUE
ELSE
IF !(INDEX) = 'N'
STORE F TO TRUE
ELSE
ENDIF
ENDIF
ENDDO
USE MAIL INDEX &PROF
FIND &CAT
ERASE
SET PRINT ON
? CHR(15)
STORE T TO TRUE
DO WHILE .NOT. EOF .AND. &PROF = '&CAT'
? TRIM(LAST)-",", FIRST, ' ', PROF1
? COMPANY, ' ', PROF2
? ADDR1, ' ', PROF3
? ADDR2
? TRIM(CITY)-"," , STATE, ZIP
? 'TEL:WRK', TEL:WRK
? 'TEL:HM', TEL:HM
?
?
?
?
?
?
SKIP
ENDDO
ERASE
STORE ' ' TO CONT
@ 10,5 SAY 'Do you wish to continue ?'
@ 12,5 SAY "Press 'N' to Return to the Menu"
@ 14,5 SAY 'Press any other key to continue'
@ 14,40 GET CONT
READ
CLEAR GETS
IF !(CONT) = 'N'
? CHR(18)
SET PRINT OFF
STORE F TO CONTINUE
RETURN
ELSE
ENDDO
ENDIF
ENDIF
5)
DO WHILE .NOT. EOF
IF FRIEND <> ' '
? TRIM(LAST)-",", FIRST , FIRST , FIRST FIRST , FIRST , FIRST FIRST
ENDIF
SKIP
ENDDO
? CHR(18)
SET PRINT OFF
RETURN
ENDIF
IF !(ANS1) = 'B'
STORE T TO RIGHT
DO WHILE RIGHT
STORE ' ' TO P
ERASE
@ 10,5 SAY "Press 'A' To Print Cards For All Categories"
@ 12,5 SAy "Press 'S' to print selected categories"
@ 12,70 get P
READ
CLEAR GETS
IF !(P) = 'A' .OR. !(P) = 'S'
STORE F TO RIGHT
ELSE
ENDIF
ENDDO
IF !(P) = 'A'
ERASE
USE MAIL
GO TOP
SET PRINT ON
? CHR(15)
D